home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / filelist / filepull.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-07  |  1.2 KB  |  43 lines
  1. VERSION 2.00
  2. Begin Form FilePull 
  3.    BackColor       =   &H00FFFFC0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "FilePull"
  6.    ClientHeight    =   1470
  7.    ClientLeft      =   2325
  8.    ClientTop       =   1560
  9.    ClientWidth     =   2820
  10.    ControlBox      =   0   'False
  11.    Height          =   1875
  12.    Left            =   2265
  13.    LinkMode        =   1  'Source
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   1470
  18.    ScaleWidth      =   2820
  19.    Top             =   1215
  20.    Width           =   2940
  21.    Begin PictureBox FileList 
  22.       BackColor       =   &H000000FF&
  23.       Height          =   1000
  24.       Left            =   0
  25.       ScaleHeight     =   975
  26.       ScaleWidth      =   975
  27.       TabIndex        =   0
  28.       Top             =   0
  29.       Width           =   1000
  30.    End
  31. Sub FileList_KeyDown (KeyCode As Integer, Shift As Integer)
  32.     If KeyCode = KEY_RETURN Then
  33.         If FileList.ListSelect(0) <> -1 Then
  34.             a$ = FileList.ListArray(FileList.ListSelect(0))
  35.             SetReturn a$
  36.         End If
  37.         Unload FilePull
  38.     End If
  39. End Sub
  40. Sub Form_GotFocus ()
  41.     FileList.SetFocus
  42. End Sub
  43.